<%

Function torcida_lista(clubes)

	DIM total
	
	total = 0

	str = "Select id, nome, regiao FROM clubes WHERE id>0 order by nome asc"
   	Set rs = conexao_geral.Execute(str)	
	
	Do while not rs.eof
	
		clubes(total,0) = rs("id")
		clubes(total,1) = rs("nome")
		clubes(total,2) = rs("regiao")
		total=total+1
	
	rs.MoveNext
	loop
	
	torcida_lista = total
	
End Function

Function torcida_lista_id(clubes, id)

	DIM total
	
	total = 0

	str = "Select id, nome, regiao FROM clubes WHERE id="&id&" order by nome asc"
   	Set rs = conexao_geral.Execute(str)	
	
	Do while not rs.eof
	
		clubes(total,0) = rs("id")
		clubes(total,1) = rs("nome")
		clubes(total,2) = rs("regiao")
		total=total+1
	
	rs.MoveNext
	loop
	
	torcida_lista_id = total
	
End Function
%>